###########################################################################
## Public Support for Assistance for Workers Displaced by Technology
###########################################################################
## Seth Werfel
## Christopher Witko
## Tobias Heinrich
###########################################################################
## 0) Run it all
###########################################################################

## Setup
########
rm(list=ls())
setwd("/Users/th5/Dropbox/Projects/ChinaorWestworld/P7 - Fault")
library(foreign)
library(readstata13)
library(plyr)
library(reshape2)
library(arm)
library(mediation)
library(ggplot2)
library(tmvtnorm)
dir.create(path="output", showWarnings = FALSE)

## Parallel settings
library(doMC)
registerDoMC(cores=4)


## Run the analysis
###################
source("code/01_Prepare data.R")
source("code/02_Estimation.R")
source("code/03_Make graphs.R")
source("code/04_Make tables.R")


